home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 31 / Mail_Madness_31_2001_-_Side_B.d64 / michael haertig (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  26.3 KB  |  689 lines
  1. 0 rem*********************************
  2. 1 rem*      das erbe  des saran      *
  3. 2 rem*         abschnitt  1          *
  4. 3 rem*      von michael haertig      *
  5. 4 rem*       programmiert  vom       *
  6. 5 rem*  30.10.1991  bis  17.11.1991  *
  7. 6 rem*********************************
  8. 8 dimq$(30),g(49,12),g$(13),h(13),a$(25):q$=chr$(34):v=53248
  9. 9 g$(1)="steine":g$(2)="axt":g$(3)="luftpumpe":g$(4)="siegel":g$(5)="fackel"
  10. 10 g$(6)="papyrusrolle":g$(7)="blasebalg":g$(8)="figur":g$(9)="scherben"
  11. 11 g$(10)="wuerfelteil":g$(11)="goldschluessel":g$(12)="silberschluessel"
  12. 12 poke53280,0:poke53281,0
  13. 16 mi=val(ti$):fori=832to894:readd1:pokei,d1:next:poke2040,13:pokev+39,8
  14. 17 fori=896to958:readd1:pokei,d1:next:poke2041,14:pokev+40,7
  15. 18 fori=960to1022:readd1:pokei,d1:next:poke2042,15:pokev+41,14
  16. 19 fori=704to766:readd1:pokei,d1:next:poke2043,11:pokev+42,0
  17. 20 printchr$(142)"bitte gib deinen namen ein";:inputna$
  18. 21 iflen(na$)>10thenprint"kuerzer als 11 zeichen !":fora=1to1000:next:goto20
  19. 23 print"":pokev+21,0
  20. 25 a$="      (c) 1991 by michael haertig"
  21. 26 b$="druecke [ f1 ] start      "
  22. 27 c$="              [ f3 ] anleitung"
  23. 28 a2$="story by michael haertig             "
  24. 29 b2$="              and lars wendrock"
  25. 30 print"  {CBM-*}              {CBM-I}   "
  26. 40 print"   {CBM-I}  {CBM-I}{CBM-I} {CBM-I} {CBM-I}  {CBM-I}{CBM-D} {CBM-I}"
  27. 50 print"   {CBM-I} {CBM-I}{CBM-I}  {CBM-I} {CBM-F}{CBM-F} {CBM-I}{CBM-C} {CBM-I}"
  28. 60 print"  {SHIFT-POUND}            {CBM-I}   "
  29. 70 print:print
  30. 80 print"  {CBM-*}                   {CBM-F} "
  31. 90 print"   {CBM-I} {CBM-I}{CBM-I} {CBM-I}{CBM-I} {CBM-I}  {CBM-O}  {CBM-I}   {CBM-F} "
  32. 100 print"   {CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}  {CBM-I}  {CBM-F}{CBM-F} {CBM-I}  {CBM-C}  "
  33. 110 print"  {SHIFT-POUND}                {CBM-C} "
  34. 165 print""
  35. 170 fort=1to35
  36. 180 print"";right$(a$,t)
  37. 190 next
  38. 192 fort=39to8step-1
  39. 193 print"";tab(t)left$(a2$,40-t)
  40. 194 next
  41. 196 fort=1to35
  42. 197 print"";right$(b2$,t)
  43. 198 next
  44. 200 fort=39to6step-1
  45. 210 print""tab(t)left$(b$,40-t)
  46. 220 next
  47. 230 fort=1to35
  48. 240 print"";right$(c$,t)
  49. 250 next
  50. 260 geta$
  51. 270 ifa$=chr$(133)then1000
  52. 280 ifa$=chr$(134)then300
  53. 290 goto260
  54. 300 printchr$(14):print"Handlung des Adventures :"
  55. 305 print"========================="
  56. 307 er$=chr$(asc(left$(na$,1))+128)
  57. 310 print"Der Zauberer Saran ist nun endgueltig"
  58. 315 print"tot . Aber - vor seinem Tod hat er "
  59. 320 print"noch 4 Wuerfelteile ueber die ganze"
  60. 330 print"Welt verstreut . Wer alle 4 Teile "
  61. 340 print"besitzt und sie zusammenfuegt , der"
  62. 350 print"hat grosse Macht . Ein anderer"
  63. 360 print"Zauberer sucht nach diesen Teilen ."
  64. 370 print"Du musst ihm zuvorkommen , die Teile"
  65. 380 print"finden und zusammensetzen . Danach"
  66. 390 print"musst du das Gebilde zerstoeren , um"
  67. 400 print"die Erde zu retten ."
  68. 430 print"[ SPACE ]"
  69. 431 forty=55296to55415:pokety,4:fortf=1to15:next:next
  70. 432 forty=55456to55975:pokety,15:fortf=1to35:next
  71. 433 ifpeek(198)=1thentr=ty:ty=55975:poke198,0:forte=trto55975:pokete,15:next
  72. 434 ifty<55975thennext
  73. 436 forty=56096to56175:pokety,5:fortf=1to15:next:next
  74. 437 gete$:ife$=""then437
  75. 440 ife$=chr$(32)then450
  76. 445 goto437
  77. 450 print"Befehle,die verwendet werden koennen:"
  78. 460 print"NEHME / NIMM            LEGE"
  79. 470 print"SEHE / SIEH             UNTERSUCHE"
  80. 480 print"OEFFNE                  DRUECKE"
  81. 490 print"GRABE                   ENTZUENDE"
  82. 500 print"ZERSCHLAGE              INVENTUR"
  83. 510 print"WIRF / WERFE            TOETE"
  84. 515 print"BLASE                   ZIEHE"
  85. 517 print"DREHE                   STELLE"
  86. 518 print"BERUEHRE                BENUTZE"
  87. 520 print""er$;right$(na$,len(na$)-1)" , viel Spass nun mit dem"
  88. 530 print"Adventure ! Gleich geht es los! Noch "
  89. 540 print"einige Worte zu diesem Adventure . Jeder"
  90. 550 print"Befehl besteht aus 1 bzw. 2 Woertern ."
  91. 560 print"Es genuegen die ersten 4 Buchstaben "
  92. 570 print"jedes Wortes . Nur Gegenstaende , die"
  93. 580 print"unter dem Wort Gegenstaende stehen ,"
  94. 585 print"koennen aufgenommen werden ."
  95. 590 print"[ SPACE ]"
  96. 591 forty=55296to55415:pokety,4:fortf=1to15:next:next
  97. 592 forty=55376to56135:pokety,15:fortf=1to35:next
  98. 593 ifpeek(198)=1thentr=ty:ty=56135:poke198,0:forte=trto56135:pokete,15:next
  99. 594 ifty<56135thennext
  100. 595 forty=56176to56215:pokety,5:fortf=1to15:next:next
  101. 600 e$="":gete$:ife$=""then600
  102. 610 ife$=chr$(32)thenprintchr$(142):goto1000
  103. 620 goto600
  104. 900 ve=0:r=co:vt=0:goto1100
  105. 1000 print"    erster teil : eine pyramide"
  106. 1001 ti$="000000"
  107. 1002 ::print"                  in gizeh"
  108. 1003 print"moment bitte !"
  109. 1005 r=12:sw=1:se=0:ax=0:lu=0:si=0:fa=0:pa=0:bl=0:fe=1:so=1:fi=0:sc=0:fs=0:sl=0
  110. 1010 sr=1:li=3:ka=1:gs=0:g=0:br=0:gl=0:ss=0
  111. 1050 fort=1to12:h(t)=0:next
  112. 1060 fort=1to16:forty=1to12:g(t,ty)=0:next:next
  113. 1070 goto55000
  114. 1100 pokev+21,0:r$(1)="":r$(2)="":r$(3)="":r$(4)=""
  115. 1105 onrgoto5400,5600,47370,5800,6000,6200,6400,,,7000,6600,5000,,,7200,6800
  116. 1140 gosub39000:poke211,0:poke214,22:sys58640:print"und nun ? ";:i=1
  117. 1145 poke53265,27:a$=""
  118. 1150 poke204,0
  119. 1152 getv$:ifv$=""then1152
  120. 1160 ifv$=chr$(20)then1182
  121. 1165 ifv$=chr$(13)orlen(a$)>28then1185
  122. 1170 ifv$=" "then1180
  123. 1175 ifv$<"0"orv$>"z"then1152
  124. 1180 printv$;:a$=a$+v$:goto1152
  125. 1182 ifa$=""then1152
  126. 1184 poke204,1:print"  ";:a$=left$(a$,len(a$)-1):goto1150
  127. 1185 print" ";:poke204,1:fort=1to4:a$(t)=" ":next
  128. 1186 u=1:fort=1tolen(a$)
  129. 1188 w$=mid$(a$,t,1):ifw$=" "thenq(u)=t:u=u+1
  130. 1189 next
  131. 1190 q(u)=len(a$)+1:fort=1tou
  132. 1192 a$(t)=mid$(a$,q(t-1)+1,q(t)-q(t-1)-1)
  133. 1194 next
  134. 1195 a$(u+1)="":a$(u+2)=""
  135. 1196 fort=1tou
  136. 1197 iflen(a$(t))>4thena$(t)=left$(a$(t),4)
  137. 1198 next
  138. 1200 ifr=7and(a$(1)="ost"ora$(1)="o")then47230
  139. 1201 ifr=5and(a$(1)="nord"ora$(1)="n")thenr=1:goto1100
  140. 1202 ifr=1and(a$(1)="sued"ora$(1)="s")thenr=5:goto1100
  141. 1203 ifr=1and(a$(1)="ost"ora$(1)="o")andfe=1thenvt=3:goto45000
  142. 1205 fori=1to4
  143. 1210 if(a$(1)="n"ora$(1)="nord")andr$(i)="nord"thenr=r-5:goto1100
  144. 1220 if(a$(1)="o"ora$(1)="ost")andr$(i)="ost"thenr=r+1:goto1100
  145. 1230 if(a$(1)="s"ora$(1)="sued")andr$(i)="sued"andr<>24thenr=r+5:goto1100
  146. 1240 if(a$(1)="w"ora$(1)="west")andr$(i)="west"thenr=r-1:goto1100
  147. 1250 next i
  148. 1260 ifa$(1)="hilf"thenprint:print"denke nach und hilf dir selbst !":goto50000
  149. 1300 ifa$(1)="nehm"ora$(1)="nimm"then20000
  150. 1310 ifa$(1)="sieh"ora$(1)="sehe"then30000
  151. 1320 ifa$(1)="inve"ora$(1)="i"then4800
  152. 1330 ifa$(1)="lege"then47000
  153. 1340 ifa$(1)="unte"then24000
  154. 1350 ifr=12and(a$(1)="h"ora$(1)="hoch")thenr=16:goto1100
  155. 1360 ifr=12anda$(1)="grab"andgs=0then47200
  156. 1370 ifa$(1)="drue"and(a$(2)="stei"ora$(2)="plat"ora$(2)="zeic")andr=16then47210
  157. 1380 ifr=16and(a$(1)="r"ora$(1)="runt")thenr=12:goto1100
  158. 1390 ifr=7anda$(1)="drue"and(a$(2)="tafe"ora$(2)="plat")thenvt=2:goto45000
  159. 1400 ifa$(1)="entz"anda$(2)="fack"andfa=1andlu=1thenbr=1:goto48500
  160. 1410 ifr=1and(a$(1)="wirf"ora$(1)="werf")anda$(2)="stei"andse=1then47260
  161. 1420 ifr=2anda$(1)="oeff"anda$(2)="sarg"andso=1thenso=0:goto48500
  162. 1430 ifr=2anda$(1)="oeff"anda$(2)="sarg"andso=0then49300
  163. 1440 ifa$(1)="entz"anda$(2)="fack"andfa=1andlu=1andbr=0thenbr=1:goto48500
  164. 1450 ifa$(1)="entz"anda$(2)="fack"andfa=1andlu=0andbr=0then47280
  165. 1460 ifa$(1)="entz"anda$(2)="fack"andfa=1andbr=1then47290
  166. 1470 ifa$(1)="zers"anda$(2)="figu"and(g(r,8)=1orfi=1)andfs=0thenfs=1:goto47310
  167. 1480 ifr=4andsr=1anda$(1)="entz"anda$(2)="stro"andbr=1then47350
  168. 1490 ifr=4andsr=1anda$(1)="entz"anda$(2)="stro"andbr=0then47280
  169. 1500 ifr=5andbl=1anda$(1)="blas"anda$(2)="ball"thenvt=6:goto45000
  170. 1510 ifr=5andbl=0anda$(1)="blas"anda$(2)="ball"then47280
  171. 1520 ifr=7anda$(1)="toet"anda$(2)="spin"thenvt=7:goto45000
  172. 1530 ifr=4anda$(1)="oeff"and(a$(2)="meta"ora$(2)="kaes")andka=1then47400
  173. 1540 ifr=4anda$(1)="oeff"and(a$(2)="meta"ora$(2)="kaes")andka=0then47390
  174. 1990 goto4760
  175. 4760 onint(rnd(4.5)*4)+1goto4765,4770,4780,4790
  176. 4765 print:print"was soll das bedeuten ?":poke198,0:wait198,1:poke198,0:goto1100
  177. 4770 print:print"was soll denn das ??":poke198,0:wait198,1:poke198,0:goto1100
  178. 4780 print:print"selten so gelacht !":poke198,0:wait198,1:poke198,0:goto1100
  179. 4790 print:print"geht nicht !":poke198,0:wait198,1:poke198,0:goto1100
  180. 4800 print"":pokev+21,0
  181. 4810 print"gegenstaende :"
  182. 4820 print"--------------":g1=0
  183. 4830 ifse=1thenprint"steine":g1=1
  184. 4840 ifax=1thenprint"axt":g1=1
  185. 4850 iflu=1thenprint"luftpumpe":g1=1
  186. 4860 ifsi=1thenprint"siegel":g1=1
  187. 4870 iffa=1andbr=0thenprint"fackel":g1=1
  188. 4875 iffa=1andbr=1thenprint"brennende fackel":g1=1
  189. 4880 ifpa=1thenprint"papyrusrolle":g1=1
  190. 4890 ifbl=1thenprint"blasebalg":g1=1
  191. 4900 iffi=1thenprint"figur":g1=1
  192. 4910 ifsc=1thenprint"scherben":g1=1
  193. 4920 ifgl=1thenprint"goldschluessel":g1=1
  194. 4930 ifss=1thenprint"silberschluessel":g1=1
  195. 4980 ifg1=0thenprint"keine"
  196. 4990 goto50000
  197. 3200 d{$60}usrusr"
  198.  
  199. 5000 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  200. 5010 print"{CBM-N}       {SHIFT-POUND}       {CBM-H}"
  201. 5020 print"{CBM-N}      {SHIFT-POUND}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-P}  {CBM-H}      gegenstaende:"
  202. 5030 print"{CBM-N}     {SHIFT-POUND}{CBM-Y}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}N  {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  203. 5040 print"{CBM-N}    {SHIFT-POUND}      N   {CBM-H}"
  204. 5050 print"{CBM-N}           {CBM-H}   {CBM-H}"
  205. 5060 fort=1to7
  206. 5070 print"{CBM-N}           {CBM-H}   {CBM-H}"
  207. 5080 next
  208. 5090 print"{CBM-N}               {CBM-H}"
  209. 5100 print"{CBM-N}               {CBM-H}"
  210. 5110 print"{CBM-N}               {CBM-H}"
  211. 5120 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  212. 5130 print"du stehst jetzt am fuss der pyramide"
  213. 5140 print"mitten im sandmeer ."
  214. 5150 r$(1)="hoch"
  215. 5160 print"richtung : "r$(1)
  216. 5190 goto1140
  217. 5400 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  218. 5410 print"{CBM-N}  {CBM-*}{CBM-H}"
  219. 5420 print"{CBM-N}   {CBM-*}{CBM-H}      gegenstaende:"
  220. 5430 print"{CBM-N}    {CBM-*}{CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  221. 5440 fort=1to7:print"{CBM-N}               {CBM-H}":next
  222. 5450 print"{CBM-N}    {SHIFT-POUND}          {CBM-H}"
  223. 5460 print"{CBM-N}   {SHIFT-POUND}           {CBM-H}"
  224. 5470 print"{CBM-N}  {SHIFT-POUND}            {CBM-H}"
  225. 5480 print"{CBM-N} {SHIFT-POUND}             {CBM-H}"
  226. 5490 print"{CBM-N}{SHIFT-POUND}              {CBM-H}"
  227. 5500 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  228. 5510 print"du stehst in einem kleinen raum ."
  229. 5520 r$(1)="ost":r$(2)="sued"
  230. 5530 ifh(7)=0theng(1,7)=1
  231. 5540 print"richtungen : "r$(1)"   "r$(2)
  232. 5590 goto1140
  233. 5600 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  234. 5610 print"{CBM-N}            {SHIFT-POUND}  {CBM-H}"
  235. 5620 print"{CBM-N}           {SHIFT-POUND}   {CBM-H}      gegenstaende:"
  236. 5630 print"{CBM-N}          {SHIFT-POUND}    {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  237. 5640 print"{CBM-N}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}     {CBM-H}"
  238. 5650 fort=1to4:print"{CBM-N}               {CBM-H}":next
  239. 5660 print"{CBM-N}               {CBM-H}"
  240. 5670 print"{CBM-N}M      {CBM-*}{CBM-P}{CBM-P}     {CBM-H}"
  241. 5680 print"{CBM-N} M      {CBM-*} {CBM-*}    {CBM-H}"
  242. 5690 print"{CBM-N}{CBM-*}          {CBM-*}   {CBM-H}"
  243. 5700 print"{CBM-N} {CBM-*}          {CBM-*}  {CBM-H}"
  244. 5710 print"{CBM-N}             {CBM-*} {CBM-H}"
  245. 5720 print"{CBM-N}              {CBM-*}{CBM-H}"
  246. 5730 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  247. 5740 print"du bist in einer grabkammer . vor dir"
  248. 5750 ifso=1thenprint"steht der sarg eines priesters .":goto5760
  249. 5755 print"steht der sarg eines priesters . er ist"
  250. 5756 print"offen . in ihm liegt eine alte mumie ."
  251. 5760 r$(1)="west":r$(2)="ost"
  252. 5770 print"richtungen : "r$(1)"   "r$(2)
  253. 5790 goto1140
  254. 5800 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  255. 5810 print"{CBM-N}  {CBM-*}{CBM-H}"
  256. 5820 print"{CBM-N}   {CBM-*}{CBM-H}      gegenstaende:"
  257. 5830 print"{CBM-N}    {CBM-*}{CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  258. 5840 fort=1to7:print"{CBM-N}               {CBM-H}":next
  259. 5850 print"{CBM-N}    {SHIFT-POUND}          {CBM-H}"
  260. 5860 print"{CBM-N}   {SHIFT-POUND}           {CBM-H}"
  261. 5870 print"{CBM-N}  {SHIFT-POUND}            {CBM-H}"
  262. 5875 ifsr=1thenpokev+2,63:pokev+3,125:pokev+21,2
  263. 5880 print"{CBM-N} {SHIFT-POUND}             {CBM-H}"
  264. 5890 print"{CBM-N}{SHIFT-POUND}              {CBM-H}"
  265. 5900 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  266. 5910 print"du bist in einem kleiner raum . es "
  267. 5920 print"riecht hier ziemlich muffig ."
  268. 5930 ifsr=1thenprint"in einer ecke liegt ein strohballen ."
  269. 5935 ifsr=0thenprint"in einer ecke liegt ein metallkaestchen."
  270. 5940 r$(1)="ost"
  271. 5950 print"richtung : "r$(1)
  272. 5990 goto1140
  273. 6000 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  274. 6010 print"{CBM-N}               {CBM-H}"
  275. 6020 print"{CBM-N}               {CBM-H}      gegenstaende:"
  276. 6030 print"{CBM-N}               {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  277. 6040 print"{CBM-N}               {CBM-H}"
  278. 6050 print"{CBM-N}               {CBM-H}"
  279. 6060 print"{CBM-N}          O{CBM-Y}P  {CBM-H}"
  280. 6070 print"{CBM-N}          {CBM-H} {CBM-N}  {CBM-H}"
  281. 6075 pokev+4,60:pokev+5,101:pokev+28,4:pokev+37,6:pokev+38,15:pokev+21,4
  282. 6080 print"{CBM-N}          {CBM-H} {CBM-N}  {CBM-H}"
  283. 6090 print"{CBM-N}   O{CBM-Y}{CBM-Y}{CBM-Y}P  {CBM-H} {CBM-N}  {CBM-H}"
  284. 6100 print"{CBM-N}   {CBM-H}   {CBM-N}  {CBM-H} {CBM-N}  {CBM-H}"
  285. 6110 fort=1to5:print"{CBM-N}               {CBM-H}":next
  286. 6120 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  287. 6130 print"du stehst in einem raum mit einem sarg."
  288. 6140 print"auf ihm liegt ein blauer ballon . "
  289. 6150 r$(1)="nord":r$(2)="ost":r$(3)="west"
  290. 6160 print"richtungen : "r$(1)"   "r$(2)"   "r$(3)
  291. 6190 goto1140
  292. 6200 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  293. 6210 print"{CBM-N}               {CBM-H}"
  294. 6220 print"{CBM-N}               {CBM-H}      gegenstaende:"
  295. 6230 print"{CBM-N}               {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  296. 6240 fort=1to4:print"{CBM-N}               {CBM-H}":next
  297. 6245 ifh(8)=0theng(6,8)=1
  298. 6250 ifg(6,8)=1thenpokev+7,94:pokev+6,80:pokev+21,8
  299. 6260 fort=1to3:print"{CBM-N}               {CBM-H}":next
  300. 6280 fort=1to5:print"{CBM-N}               {CBM-H}":next
  301. 6300 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  302. 6310 print"du bist an einer weggabelung . "
  303. 6320 ifg(6,8)=1thenprint"eine goetterfigur steht auf dem sockel."
  304. 6340 r$(1)="sued":r$(2)="west":r$(3)="ost"
  305. 6350 print"richtungen : "r$(1)"   "r$(2)"   "r$(3)
  306. 6390 goto1140
  307. 6400 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  308. 6410 print"{CBM-N}               {CBM-H}"
  309. 6420 print"{CBM-N}               {CBM-H}      gegenstaende:"
  310. 6430 print"{CBM-N}               {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  311. 6440 print"{CBM-N}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-H}"
  312. 6450 print"{CBM-N} {CBM-N}   {CBM-N}   {CBM-N}   {CBM-N} {CBM-H}"
  313. 6460 print"{CBM-N}{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}"
  314. 6470 print"{CBM-N}   {CBM-N}   {CBM-N}   {CBM-N}   {CBM-H}"
  315. 6480 print"{CBM-N}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-H}"
  316. 6490 print"{CBM-N} {CBM-N}   {CBM-N}   {CBM-N}   {CBM-N} {CBM-H}"
  317. 6500 print"{CBM-N}{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}"
  318. 6510 print"{CBM-N}   {CBM-N}   {CBM-N}   {CBM-N}   {CBM-H}"
  319. 6520 print"{CBM-N}               {CBM-H}"
  320. 6530 ifh(3)=0thenprint"{CBM-N}              {CBM-W}{CBM-H}"
  321. 6535 ifh(3)=1thenprint"{CBM-N}               {CBM-H}"
  322. 6540 print"{CBM-N}               {CBM-H}"
  323. 6550 print"{CBM-N}               {CBM-H}"
  324. 6560 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  325. 6565 print"du stehst jetzt oestlich der abzweigung."
  326. 6567 print"an der decke sitzt eine grosse spinne ."
  327. 6570 r$(1)="west":r$(2)="ost"
  328. 6580 print"richtungen : "r$(1)"   "r$(2)
  329. 6590 goto1140
  330. 6600 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  331. 6610 print"{CBM-N} {CBM-*}{SHIFT-POUND} {CBM-H}"
  332. 6620 print"{CBM-N}  {CBM-*}{SHIFT-POUND}  {CBM-H}      gegenstaende:"
  333. 6630 print"{CBM-N}   {CBM-*}{SHIFT-POUND}   {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  334. 6640 print"{CBM-N}    {CBM-*}{SHIFT-POUND}    {CBM-H}"
  335. 6650 print"{CBM-N}     {CBM-*}{SHIFT-POUND}     {CBM-H}"
  336. 6660 print"{CBM-N}               {CBM-H}"
  337. 6670 print"{CBM-N}               {CBM-H}"
  338. 6680 print"{CBM-N}               {CBM-H}"
  339. 6690 print"{CBM-N}               {CBM-H}"
  340. 6700 print"{CBM-N}     {SHIFT-POUND}   {CBM-*}     {CBM-H}"
  341. 6710 print"{CBM-N}    {SHIFT-POUND}     {CBM-*}    {CBM-H}"
  342. 6720 print"{CBM-N}   {SHIFT-POUND}       {CBM-*}   {CBM-H}"
  343. 6730 print"{CBM-N}  {SHIFT-POUND}         {CBM-*}  {CBM-H}"
  344. 6740 print"{CBM-N} {SHIFT-POUND}           {CBM-*} {CBM-H}"
  345. 6750 print"{CBM-N}{SHIFT-POUND}             {CBM-*}{CBM-H}"
  346. 6760 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  347. 6770 print"du stehst in einem langen gang . der "
  348. 6775 print"boden ist mit feinem sand bedeckt ."
  349. 6780 ifh(2)=0theng(11,2)=1
  350. 6782 r$(1)="sued":r$(2)="nord"
  351. 6785 print"richtungen : "r$(1)"   "r$(2)
  352. 6790 goto1140
  353. 6800 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  354. 6810 print"{CBM-N}   {CBM-N}        {CBM-N}  {CBM-H}"
  355. 6820 print"{CBM-N}   {CBM-N}        {CBM-N}  {CBM-H}      gegenstaende:"
  356. 6830 print"{CBM-N}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{CBM-P}{CBM-P}{CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  357. 6835 ifsw=0then6897
  358. 6840 print"{CBM-N}   N        N  {CBM-H}"
  359. 6850 print"{CBM-N}  N        N   {CBM-H}"
  360. 6860 print"{CBM-N}{CBM-Y}{CBM-Y}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}"
  361. 6870 print"{CBM-N}  {CBM-H}        {CBM-H}   {CBM-H}"
  362. 6880 fort=1to8
  363. 6885 print"{CBM-N}  {CBM-H}        {CBM-H}   {CBM-H}"
  364. 6890 next
  365. 6895 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}":goto6920
  366. 6897 print"{CBM-N}   N        {SHIFT-POUND}  {CBM-H}"
  367. 6899 print"{CBM-N}  N        {SHIFT-POUND}   {CBM-H}"
  368. 6900 print"{CBM-N}{CBM-Y}P         {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}"
  369. 6902 print"{CBM-N} {CBM-N}             {CBM-H}"
  370. 6904 print"{CBM-N} {CBM-N}       {CBM-P}{CBM-P}    {CBM-H}"
  371. 6906 print"{CBM-N} {CBM-N}      {SHIFT-POUND}      {CBM-H}"
  372. 6908 print"{CBM-N} {CBM-N}     {SHIFT-POUND}       {CBM-H}"
  373. 6910 print"{CBM-N} {CBM-N}    {SHIFT-POUND}        {CBM-H}"
  374. 6912 print"{CBM-N} {CBM-N}   {SHIFT-POUND}         {CBM-H}"
  375. 6914 print"{CBM-N} {CBM-N}  {SHIFT-POUND}          {CBM-H}"
  376. 6916 print"{CBM-N} {CBM-N} {SHIFT-POUND}           {CBM-H}"
  377. 6918 print"{CBM-N} {CBM-N}{SHIFT-POUND}            {CBM-H}"
  378. 6919 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  379. 6920 print"du stehst auf der 9. stufe der pyramide."
  380. 6930 r$(1)="runter":r$(2)="west":ifsw=0thenr$(3)="nord"
  381. 6940 print"richtungen : "r$(1)"   "r$(2)"   "r$(3)
  382. 6990 goto1140
  383. 7000 print" {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  384. 7010 print"{CBM-N}               {CBM-H}"
  385. 7012 print"{CBM-N}               {CBM-H}      gegenstaende:"
  386. 7014 print"{CBM-N}               {CBM-H}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  387. 7020 print"{CBM-N}               {CBM-H}"
  388. 7030 print"{CBM-N}      {CBM-K} {CBM-K}      {CBM-H}"
  389. 7040 print"{CBM-N}      {CBM-K} {CBM-K}      {CBM-H}"
  390. 7050 print"{CBM-N}            {CBM-H}"
  391. 7060 fort=1to3:print"{CBM-N}            {CBM-H}":next
  392. 7070 fort=1to5:print"{CBM-N}               {CBM-H}":next
  393. 7072 pokev+6,42:pokev+7,90:pokev+42,0
  394. 7080 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  395. 7082 ifpeek(836)<>255then7090
  396. 7084 fort=832to894:readd1:poket,d1:next:poke2044,13:pokev+43,10
  397. 7086 pokev+8,42:pokev+9,90:pokev+28,16:pokev+37,14:pokev+38,7:pokev+21,24
  398. 7090 print"du stehst nun endlich in der grabkammer"
  399. 7100 print"des pharao tut-ench-ammon . auf einem "
  400. 7110 print"sockel liegt das gesuchte wuerfelteil ."
  401. 7115 if g(10,9)=1then7130
  402. 7120 if sc=0 then47330
  403. 7121 if pa=0 then47330
  404. 7122 if si=0 then47330
  405. 7130 ifh(10)=0theng(10,10)=1
  406. 7190 goto1140
  407. 7200 vt=1:goto45000
  408. 19990 goto1140
  409. 20000 ifg>5then49100
  410. 20100 ifg(r,1)=1anda$(2)="stei"thense=1:g(r,1)=0:h(1)=1:g=g+1:goto48500
  411. 20110 ifg(r,2)=1anda$(2)="axt"thenax=1:g(r,2)=0:h(2)=1:g=g+1:goto48500
  412. 20120 ifg(r,3)=1anda$(2)="luft"thenlu=1:g(r,3)=0:h(3)=1:g=g+1:goto48500
  413. 20130 ifg(r,4)=1anda$(2)="sieg"thensi=1:g(r,4)=0:h(4)=1:g=g+1:goto48500
  414. 20140 ifg(r,5)=1anda$(2)="fack"thenfa=1:g(r,5)=0:h(5)=1:g=g+1:goto48500
  415. 20150 ifg(r,6)=1anda$(2)="papy"thenpa=1:g(r,6)=0:h(6)=1:g=g+1:goto48500
  416. 20160 ifg(r,7)=1anda$(2)="blas"thenbl=1:g(r,7)=0:h(7)=1:g=g+1:goto48500
  417. 20170 ifg(r,8)=1anda$(2)="figu"thenfi=1:g(r,8)=0:h(8)=1:g=g+1:goto48500
  418. 20180 ifg(r,9)=1anda$(2)="sche"thensc=1:g(r,9)=0:h(9)=1:g=g+1:goto48500
  419. 20190 ifg(r,10)=1anda$(2)="wuer"andsl=0thenvt=4:goto45000
  420. 20200 ifg(r,10)=1anda$(2)="wuer"andsl=1then52000
  421. 20210 ifg(r,11)=1anda$(2)="gold"thengl=1:g(r,11)=0:h(9)=1:g=g+1:goto48500
  422. 20220 ifg(r,12)=1anda$(2)="silb"thenss=1:g(r,12)=0:h(9)=1:g=g+1:goto48500
  423. 23990 goto49000
  424. 24000 ifr=7and(a$(2)="bode"ora$(2)="raum"ora$(2)="fuss")andh(3)=0then47220
  425. 24010 ifr=7and(a$(2)="zieg"ora$(2)="wand"ora$(2)="maue")then47300
  426. 24020 ifr=2anda$(2)="sarg"andso=0then47270
  427. 24990 goto49500
  428. 30000 ifr=7and(a$(2)="bode"ora$(2)="raum"ora$(2)="fuss")andh(3)=0then47220
  429. 30010 ifr=7and(a$(2)="zieg"ora$(2)="wand"ora$(2)="maue")then47300
  430. 30020 ifr=2anda$(2)="sarg"andso=0then47270
  431. 38900 goto49500
  432. 39000 q=4:fori=1to12
  433. 39010 ifg(r,i)=1thenpoke211,20:poke214,q:sys58640:printg$(i):q=q+1
  434. 39020 next
  435. 39030 ifq=4thenpoke211,20:poke214,4:sys58640:print"nichts besonderes"
  436. 39040 return
  437. 45000 print"";:pokev+21,0
  438. 45001 z1$=left$(ti$,2)
  439. 45002 z2$=mid$(ti$,3,2)
  440. 45003 z3$=right$(ti$,2)
  441. 45010 print"{CBM-N}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}"
  442. 45020 print"{CBM-N}      {SHIFT-POUND}        {CBM-H}"
  443. 45030 print"{CBM-N}               {CBM-H}"
  444. 45040 print"{CBM-N}               {CBM-H}"
  445. 45050 print"{CBM-N}   {SHIFT-POUND}           {CBM-H}"
  446. 45060 print"{CBM-N}               {CBM-H}    hier ruht :"
  447. 45070 print"{CBM-N}           {SHIFT-POUND}   {CBM-H}"
  448. 45080 print"{CBM-N}               {CBM-H}    "na$
  449. 45090 print"{CBM-N}  the     end  {CBM-H}"
  450. 45100 print"{CBM-N}               {CBM-H}    gestorben nach"
  451. 45110 print"{CBM-N}               {CBM-H}"
  452. 45120 print"{CBM-N}               {CBM-H}    "z1$":"z2$":"z3$
  453. 45130 print"{CBM-N}               {CBM-H}"
  454. 45140 print"{CBM-N}               {CBM-H}"
  455. 45150 print"{CBM-N}               {CBM-H}"
  456. 45160 print" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  457. 45200 ifvt=1then45300
  458. 45210 ifvt=2then45310
  459. 45220 ifvt=3then45320
  460. 45230 ifvt=4then45340
  461. 45240 ifvt=5then45370
  462. 45250 ifvt=6then45390
  463. 45260 ifvt=7then45410
  464. 45290 goto50000
  465. 45300 print"ein stein war lose und du bist mit ihm":co=16
  466. 45305 print"in die tiefe gestuerzt !!!":goto46900
  467. 45310 print"du solltest doch nicht druecken !":co=7
  468. 45315 print"nun hast du die falle ausgeloest !":goto46900
  469. 45320 print"du hast einige fallen ausgeloest . nun":co=1
  470. 45330 print"bist du verbrannt,halbiert,und aufge-"
  471. 45335 print"spiesst worden !!!":goto46900
  472. 45340 print"du hast eine mechanik ausgeloest ."
  473. 45350 print"die grabkammer fuellte sich mit feinem":co=10
  474. 45360 print"sand und du bist erstickt !!!":goto46900
  475. 45370 print"du hast ein leben verloren !!!":co=7:goto46900
  476. 45390 print"der ballon ist geplatzt . vor schreck":co=5
  477. 45400 print"bist du rueckwaerts getaumelt und dabei"
  478. 45405 print"genau in einen spiess getaumelt !!!":goto46900
  479. 45410 print"das war eine gute idee ! aber das geht"
  480. 45420 print"nicht . stattdessen hat dich die spinne":co=7
  481. 45430 print"umgarnt und ausgesaugt !!!":goto46900
  482. 46900 li=li-1:ifli=0thenprint"         neues spiel / ende ":goto46910
  483. 46905 print"   neues spiel / fortsetzen / ende "
  484. 46910 getw$:ifw$=""then46910
  485. 46920 ifw$="e"thenprint"":end
  486. 46930 ifw$="n"then1000
  487. 46935 ifw$="f"andli>0then900
  488. 46940 goto46910
  489. 47000 ifa$(2)="stei"andse=1theng(r,1)=1:se=0:g=g-1:goto48500
  490. 47010 ifa$(2)="axt"andax=1theng(r,2)=1:ax=0:g=g-1:goto48500
  491. 47020 ifa$(2)="luft"andlu=1theng(r,3)=1:lu=0:g=g-1:goto48500
  492. 47030 ifa$(2)="sieg"andsi=1theng(r,4)=1:si=0:g=g-1:goto48500
  493. 47040 ifa$(2)="fack"andfa=1theng(r,5)=1:fa=0:g=g-1:goto48500
  494. 47050 ifa$(2)="papy"andpa=1theng(r,6)=1:pa=0:g=g-1:goto48500
  495. 47060 ifa$(2)="blas"andbl=1theng(r,7)=1:bl=0:g=g-1:goto48500
  496. 47070 ifa$(2)="figu"andfi=1theng(r,8)=1:fi=0:g=g-1:goto48500
  497. 47080 ifr<>10anda$(2)="sche"andsc=1theng(r,9)=1:sc=0:g=g-1:goto48500
  498. 47090 ifr=10anda$(2)="sche"andsc=1theng(10,9)=1:sc=0:g=g-1:sl=1:goto47340
  499. 47100 ifa$(2)="gold"andgl=1theng(r,11)=1:gl=0:g=g-1:goto48500
  500. 47110 ifa$(2)="silb"andss=1theng(r,12)=1:ss=0:g=g-1:goto48500
  501. 47200 gs=1:g(12,1)=1:print:print"nach langem graben legst du einige"
  502. 47205 print"kleine steine frei .":goto50000
  503. 47210 print:print"der block vor dir bewegt sich zur seite.":sw=0:goto50000
  504. 47220 print:print"du bemerkst eine luftpumpe .":g(7,3)=1:goto50000
  505. 47230 print:print"diese tuer fuehrt in ein finsteres"
  506. 47235 print"labyrint . willst du ? (j/n)"
  507. 47240 gete$:ife$="n"then6400
  508. 47245 ife$="j"then51000
  509. 47250 goto47240
  510. 47260 print:print"du hast mit den steinen einige fallen"
  511. 47265 print"ausgeloest und damit entschaerft .":se=0:g=g-1:fe=0:goto50000
  512. 47270 print:print"beim durchwuehlen des sarges findest"
  513. 47275 print"du eine fackel .":g(2,5)=1:goto50000
  514. 47280 print:print"womit denn ?        ":goto50000
  515. 47290 print:print"die brennt doch schon !    ":goto50000
  516. 47300 print:print"du siehst eine platte mit der aufschrift "
  517. 47305 print"bitte nicht druecken!das ist eine falle!":goto50000
  518. 47310 print:print"im inneren der figur findest du ein":h(8)=1:pokev+21,0
  519. 47315 print"siegel . die scherben liegen ueber den":g(r,8)=0
  520. 47320 print"boden verstreut .":g(r,9)=1:g(r,4)=1:g(r,8)=0
  521. 47325 iffi=1thenfi=0:g=g-1
  522. 47327 goto50000
  523. 47330 print""na$", du besitzt nicht die"
  524. 47332 print"gegenstand , den du zur loesung des "
  525. 47334 print"letzten raetsels brauchst . darum wirst"
  526. 47336 print"du durch magische kraefte wieder aus"
  527. 47338 print"der grabkammer geschleudert .":r=16:goto50000
  528. 47340 print:print"du hast die scherben auf den sockel"
  529. 47342 print"mit dem wuerfelteil gelegt .":goto50000
  530. 47350 print:print"das stroh verbrennt . dahinter wird "
  531. 47360 print"ein metallkaestchen sichtbar .":sr=0:pokev+21,0:goto50000
  532. 47370 print"dies war ein geheimer ausgang . nur der"
  533. 47372 print"pharao wusste , wie man ihn ohne gefahr"
  534. 47374 print"benutzt . du aber bist abgestuerzt und"
  535. 47376 print"liegst mit etlichen prellungen am fuss"
  536. 47378 print"der pyramide . alle gegenstaende sind"
  537. 47380 print"bei deinem sturz verloren gegangen !"
  538. 47386 poke198,0:wait198,1:goto1005
  539. 47390 print:print"ist schon offen !                     ":goto50000
  540. 47400 print:print"im inneren des kaestchens liegen auf"
  541. 47410 print"einer papyrusrolle ein goldener und ein"
  542. 47415 print"silberner schluessel .":g(4,11)=1:g(4,12)=1:g(4,6)=1:goto50000
  543. 48000 goto50000
  544. 48500 print:print"ok .":goto50000
  545. 49000 print:print"gibts hier nicht !":goto50000
  546. 49100 print:print"du kannst hoechstens 6 gegenstaende"
  547. 49110 print"tragen !":goto50000
  548. 49300 print:print"ist schon offen !                  ":goto50000
  549. 49500 print:print"nichs besonderes zu sehen !":goto50000
  550. 50000 poke198,0:wait198,1:poke198,0:goto1100
  551. 51000 print"";
  552. 51003 print"                                      "
  553. 51006 print"                                      "
  554. 51010 print"       "
  555. 51020 print"                             "
  556. 51030 print"               "
  557. 51040 print"                         "
  558. 51050 print"                 "
  559. 51060 print"                   "
  560. 51070 print"                    "
  561. 51080 print"                     "
  562. 51090 print"                       "
  563. 51100 print"                   "
  564. 51110 print"                      "
  565. 51120 print"               "
  566. 51130 print"                           "
  567. 51140 print"                   "
  568. 51150 print"                        "
  569. 51160 print"                    a  "
  570. 51170 print"                     "
  571. 51180 print"                  "
  572. 51190 print"                            "
  573. 51200 print"        "
  574. 51210 print"                                      "
  575. 51220 print"                                      "
  576. 51300 x=2:y=2:ze=val(ti$):z2=ze+300
  577. 51301 ifval(right$(ti$,2))<10thenti$=left$(ti$,4)+"11":goto51300
  578. 51302 ifval(right$(ti$,2))<11thenti$=left$(ti$,4)+"11":goto51300
  579. 51305 poke1024+40*x+y,32:ifval(ti$)=z2-10then51550
  580. 51307 ifval(ti$)=z2then51560
  581. 51308 ifval(ti$)=z2+5then51600
  582. 51310 ifpeek(56320)=126andpeek(1024+40*x+y-40)<>160thenx=x-1
  583. 51320 ifpeek(56320)=119andpeek(1024+40*x+y+1)<>160theny=y+1
  584. 51330 ifpeek(56320)=125andpeek(1024+40*x+y+40)<>160thenx=x+1
  585. 51340 ifpeek(56320)=123andpeek(1024+40*x+y-1)<>160theny=y-1
  586. 51350 a1=55296+40*x+y:ifpeek(1024+40*x+y)=1thenr=10:goto1100
  587. 51360 poke1024+40*x+y,81:pokea1,2
  588. 51361 getde$:ifde$=chr$(133)thenvt=5:goto45000
  589. 51365 ifbr=0then51305
  590. 51370 pokea1-40,15:pokea1-41,15:pokea1-1,15:pokea1+39,15:pokea1+40,15
  591. 51380 pokea1+41,15:pokea1+1,15:pokea1-39,15
  592. 51390 pokea1-80,.:pokea1-81,.:pokea1-82,.:pokea1-42,.:pokea1-2,.
  593. 51400 pokea1+38,.:pokea1+78,.:pokea1+79,.:pokea1+80,.:pokea1+81,.
  594. 51410 pokea1+82,.:pokea1+42,.:pokea1+2,.:pokea1-38,.:pokea1-78,.:pokea1-79,.
  595. 51500 goto51305
  596. 51550 print"  die fackel verloescht in 10 sec.":goto51310
  597. 51560 print"  die fackel verloescht ...       ":br=0:fa=0:g=g-1
  598. 51570 pokea1-40,0:pokea1-41,0:pokea1-1,0:pokea1+39,0:pokea1+40,0
  599. 51580 pokea1+41,0:pokea1+1,0:pokea1-39,0
  600. 51590 pokea1-80,.:pokea1-81,.:pokea1-82,.:pokea1-42,.:pokea1-2,.:goto51310
  601. 51600 print"aufgeben mit [ f1 ]                 ":goto51310
  602. 52000 print""
  603. 52005 goto52030
  604. 52010 ifpa=0then52100
  605. 52020 ifsi=0then52100
  606. 52030 print"          zwishhenauswertung"
  607. 52040 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  608. 52050 print""na$",du hast deine erste aufgabe"
  609. 52060 print"geloest . dazu hast du   ";
  610. 52070 printleft$(ti$,2)":"mid$(ti$,3,2)":"right$(ti$,2)
  611. 52080 print"benoetigt . "
  612. 52090 print"wir gratulieren , fordern dich aber"
  613. 52100 print"auf , durch den erwerb der uebrigen"
  614. 52110 print"drei wuerfelteile die menschheit vor"
  615. 52120 print"sarans erbe zu retten . du findest das"
  616. 52130 print"naechste teil in einem sonnentempel in"
  617. 52140 print"den bergen von peru !"
  618. 52150 print"                  [ space ]"
  619. 52160 geta$:ifa$=""then52160
  620. 52170 ifa$<>chr$(32)then52160
  621. 52180 poke828,.
  622. 52190 print"              loading ..."
  623. 52200 print"               please wait !"
  624. 52210 print"":sa$="  viel spass !  "
  625. 52220 print"load"chr$(34);sa$;chr$(34)",8
  626.  
  627. 52230 print"run"
  628. 52240 poke631,13:poke632,13:poke198,2
  629. 52250 printchr$(19);:end
  630. 54000 end
  631. 55000 print"":poke53281,0
  632. 55010 print"                                        "
  633. 55020 print"                                        "
  634. 55030 print"                        {CBM-@}               "
  635. 55040 print"                       {CBM-@}{CBM-@}{CBM-@}              "
  636. 55050 print"                      {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}             "
  637. 55060 print"                     {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}            "
  638. 55070 print"                    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}           "
  639. 55080 print"                   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}          "
  640. 55090 print"                  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}         "
  641. 55100 print"                 {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}        "
  642. 55110 print"                {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}       "
  643. 55120 print"               {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}      "
  644. 55130 print"              {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}     "
  645. 55140 print"             {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}    "
  646. 55150 print"            {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}   "
  647. 55160 print"           {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  "
  648. 55170 print"          {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
  649. 55180 print"         {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  650. 55190 print"        {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  651. 55200 print"       {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  652. 55210 print"      {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  653. 55220 fort=21to23:poke211,0:poke214,t:sys58640
  654. 55230 print"                                        ":next
  655. 55232 pokev,70:pokev+1,70:pokev+23,1:pokev+29,1:pokev+21,1
  656. 55240 poke211,13:poke214,24:sys58640:print"druecke space !"
  657. 55250 geta$:ifa$=chr$(32)thenpokev+21,0:goto1100
  658. 55260 goto55250
  659. 56000 rem***********       ************
  660. 56001 rem*********** sonne ************
  661. 56002 rem***********       ************
  662. 56005 data0,126,0,1,255,128,7,255,224,15,255,240,31,255,248,31,255,248
  663. 56010 data63,255,252,63,255,252,127,255,254,127,255,254,127,255,254,127,255,254
  664. 56020 data127,255,254,63,255,252,63,255,252,31,255,248,31,255,248,15,255,240
  665. 56030 data7,255,224,1,255,128,0,126,0
  666. 56039 rem*********             ********
  667. 56040 rem********* strohballen ********
  668. 56041 rem*********             ********
  669. 56050 data0,255,255,1,26,170,3,255,254,4,146,77,15,255,250,18,73,85,63,255,234
  670. 56060 data73,36,213,255,255,170,85,85,85,255,255,170,85,85,85,255,255,170
  671. 56070 data85,85,85,255,255,170,85,85,84,255,255,168,85,85,80,255,255,160
  672. 56080 data85,85,64,255,255,128
  673. 56089 rem**********        ************
  674. 56090 rem********** ballon ************
  675. 56091 rem**********        ************
  676. 56100 data,,,,,,,,,,,,,,,,,,5,80,0,5,80,0,22,148,0,27,146,0,90,164,0
  677. 56110 data107,229,0,111,233,0,106,249,0,107,217,0,107,249,64,94,250,80
  678. 56120 data26,127,148,22,95,249,5,170,170,1,85,85
  679. 56129 rem********              ********
  680. 56130 rem******** pharao hires ********
  681. 56131 rem********              ********
  682. 56140 data0,60,0,0,102,0,0,195,0,0,129,0,3,129,192,4,90,32,8,90,32,15,255,240
  683. 56150 data16,129,8,31,0,248,33,102,132,127,0,254,129,24,129,127,129,126,16,126
  684. 56160 data8,15,231,240,4,60,32,255,231,255,130,60,65,131,231,193,129,189,1
  685. 56169 rem*****                   ******
  686. 56170 rem***** pharao multicolor ******
  687. 56171 rem*****                   ******
  688. 56180 data,,,,60,,,60,,,255,,,255,,3,255,192,15,255,240,,,,15,170,240,,170,
  689. 56190 data63,170,252,,170,,255,170,255,,,,15,195,240,,60,,3,195,192,,60,
  690. 56200 data87,195,213,84,60,21,85,195,85
  691.